home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8404.arc / SEARCH3.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  896b  |  29 lines
  1. ' 
  2. '$$$$$$$$$$$$$$ 
  3. 'Subroutine 
  4. '$$$$$$$$$$$$$$ 
  5. ' 
  6. '    This is the basic binary search subroutine. 
  7. '    Input is the table in which to look up (ITABLE), 
  8. '    the number of entries in the table (NTABLE), and 
  9. '    the number whose index is to be found (JKEY).  
  10. '    Output is the index (INDX) such that  
  11. '    TABLE(INDX) = JKEY 
  12. ' 
  13. '    BASIC BINARY SEARCH 
  14. ' 
  15. 8000 rem Start. 
  16. REM CMP   cmp = 0 
  17.      ilow. = 1 
  18.      ihigh. = ntable 
  19. ' 
  20. 8020 rem Loop. 
  21.        imid. = (ihigh.+ilow.)\2    'Integer division truncates! 
  22. REM CMP     cmp = cmp + 1 
  23.        if (itable(imid.) = jkey) then indx   = imid. : return 
  24.        if (itable(imid.) > jkey) then ihigh. = imid. - 1 
  25.        if (itable(imid.) < jkey) then ilow.  = imid. + 1 
  26.      goto 8020 
  27. ' 
  28.      return 
  29.